Loadstar 19/019.d81/script text

Commodore BASIC | 1986-01-01 | 671 b | 17 lines

5 poke53281,0:poke53280,6:print"[147]"spc(10)"[211]cript [212]ext [205]enu"
6 print"1 ==> [195]ursive text"
7 print"2 ==> [201]talic text"
8 print"3 ==> [210]eturn to [204][207][193][196][211][212][193][210]"
10 input"[215]hich";n$:poke53281,15:n=val(n$)
11 ifn<>1andn<>2andn<>3then5
12 ifn=1thenn$="cursive"
13 ifn=2thenn$="italic"
14 ifn=3thenload"hello connect",8:end
20 print"[144]normal type:":print"abcdefghijklmnopqrstuvwxyz1234567890":print
30 print"shifted type:":print"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]":print
40 print"reverse type:":print"abcdefghijklmnopqrstuvwxyz1234567890":print
50 print"[146]reverse shifted type:":print"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
60 poke56334,peek(56334)or1:poke53272,(peek(53272)and240)+12
70 open1,8,12,n$+"*,p,r":get#1,a$,a$
80 fori=.to255:forj=.to7:get#1,a$:poke12288+j+i*8,asc(a$+chr$(.)):nextj,i:close1